#!
$HTML='        <td valign=top><img src="http://thumb.tvix.cn/videos/200604/ybGxszEqCKz-0000.jpg" width=80 height=60></td>';

    my ($pic_src)=$HTML=~/src=\".*?(\/videos\/[^\.]+\.jpg)\"/i;
    print "not found pic_src" if not defined $pic_src;
    $pic_src =~ s/\-\d+\.jpg$/\.flv/;

    my $video_url="http://video.tvix.cn$pic_src";
print $video_url;
